home *** CD-ROM | disk | FTP | other *** search
- /**************************************************************
- *
- * Name: TabSpace()
- *
- * Function: Construct a lokal bool environment variable - 'tab_space'.
- * Assign the tab key to execute the TabSpace() function
- * if the varieble is TRUE.
- *
- * Author: Kjell Ericson
- *********/
- export int TabSpace()
- {
- string str="";
- int tabsize=ReadInfo("tab_size");
- int antal=tabsize-((ReadInfo("cursor_x")+ReadInfo("screen_x")-1)%tabsize);
-
- while (antal-->0)
- str=joinstr(str, " ");
-
- Output(str);
-
- }
-
- ConstructInfo("tab_space", "", "", "BLW(display)", "", 0, 1);
- AssignKey("TabSpace();", "'tab'", "tab_space");
-
-